Comix Games/Comix Games.iso/waldo/waldo.exe/FINAL08.DXR/00255.ls

Text File | 1995-10-08 | 8.8 KB | 321 lines

global gSlowMachine, gFortuneFrame, gFortuneCategory, gFortuneTeller, gTokens, gTokenSprite, gOkaySprite, gFortuneCategorySprite, gMainMenuCursor, gNavigationCursor, gGeneralCursor, gForwardCursor, gBackwardCursor, gLeftCursor, gRightCursor, gScoreCursor, gAboutCursor, gHotCursor, gWaitCursor, gHot, gHotMask, cMainMenuCursor, cNavigationCursor, cGeneralCursor, cForwardCursor, cBackwardCursor, cLeftCursor, cRightCursor, cScoreCursor, cAboutCursor, cHotCursor, cWaitCursor, gBDropSprite, gDot, gMainBDropCast, gMainBDropPICT, gPupSound, gUserName, gBalloons, gBalloonsList

on startMovie
  clearGlobals()
  if the frame = 1 then
    startMoviePrefs()
  end if
  setProp(1, 48, "visibility", 1)
  set the volume of sound 1 to 255
  set the volume of sound 2 to 255
  set gHot to the number of cast "Hot"
  set gHotMask to the number of cast "HotMask"
  set gSlowMachine to the machineType = 256
  set gOkaySprite to 47
  set gFortuneCategorySprite to 25
  set gFortuneTeller to label("Query")
  set gTokens to 0
  set gTokenSprite to 45
  set gBDropSprite to 1
  set gBalloons to 0
  set gBalloonsList to [0, 0, 0, 0]
  puppetSound(0)
  defineHotSpots([0, 0], [0, 0], [0, 0], [0, 0], [0, 0], [0, 0], [0, 0], [0, 0], [0, 0], [0, 0], [0, 0])
  when keyDown then checkKey
end

on stopMovie
  set the text of cast "Query" to "?"
  set the text of cast "Query2" to "?"
end

on checkKey
  set userKey to the key
  set userKeyCode to the keyCode
  if (userKey >= "0") and (userKey <= "9") then
    if fortuneTeller() then
      if the optionDown then
        set the soundLevel to value(userKey)
        dontPassEvent()
        exit
      else
        if the castNum of sprite 19 = the number of cast "Query" then
          appendText(userKey)
          pass()
          exit
        end if
      end if
    else
      set the soundLevel to value(userKey)
      dontPassEvent()
      exit
    end if
  end if
  if fortuneTeller() then
    if userKey = RETURN then
      if the visible of sprite gOkaySprite = 1 then
        dontPassEvent()
        exit
      else
        if the frame >= label("Query") then
          if pressButton(gOkaySprite - 1, 1) then
            go("No Query")
          end if
          dontPassEvent()
        else
          pass()
          exit
        end if
      end if
    else
      if the castNum of sprite 19 = the number of cast "Query" then
        if (userKey >= "A") and (userKey <= "Z") then
          appendText(userKey)
          pass()
          exit
        end if
        if (userKey = " ") or (userKey = "-") or (userKey = "/") or (userKey = ".") or (userKey = "!") or (userKey = "?") or (userKey = ":") or (userKey = ";") then
          appendText(userKey)
          pass()
          exit
        end if
        if charToNum(userKey) = 8 then
          deleteText(userKey)
          pass()
          exit
        end if
        dontPassEvent()
      end if
    end if
  end if
end

on appendText userKey
  set gUserName to the text of cast "Query"
  if the number of chars in gUserName < 30 then
    set gUserName to gUserName & userKey
    set the text of cast "Query" to gUserName
    updateStage()
  else
  end if
end

on deleteText userKey
  if charToNum(userKey) = 8 then
    set gUserName to the text of cast "Query"
    delete char -30000 of gUserName
    set the text of cast "Query" to gUserName
    updateStage()
  end if
end

on programmersKey
  return the shiftDown and the controlDown
end

on fortuneTeller
  return (the frame >= label("Query")) and (the frame < label("No Query"))
end

on delayFor howLong, interrupt
  set howLong to howLong + the timer
  if voidp(interrupt) then
    repeat while the timer < howLong
      nothing()
    end repeat
  else
    repeat while (the timer < howLong) and the mouseUp
      nothing()
    end repeat
    if interrupt > 0 then
      puppetTransition(0)
      go(interrupt)
    end if
  end if
end

on checkRange originalNumber, minValue, maxValue
  if originalNumber < minValue then
    set originalNumber to minValue
  else
    if originalNumber > maxValue then
      set originalNumber to maxValue
    end if
  end if
  return originalNumber
end

on setProp startSprite, stopSprite, whichProperty, whichValue
  repeat with x = startSprite to stopSprite
    do("set the " & whichProperty & " of sprite x=whichValue")
  end repeat
end

on legalButton whichSprite
  repeat while the mouseDown
    nothing()
  end repeat
  return 1
end

on invertButton whichSprite
  puppetTransition(0)
  set oldInk to the ink of sprite whichSprite
  set the ink of sprite whichSprite to 4
  updateStage()
  delayFor(20)
  repeat while the stillDown
    if rollOver(whichSprite) then
      set the ink of sprite whichSprite to 4
    else
      set the ink of sprite whichSprite to oldInk
    end if
    updateStage()
  end repeat
  if the ink of sprite whichSprite = oldInk then
    return 0
    exit
  end if
  set the ink of sprite whichSprite to oldInk
  return 1
end

on pressButton whichSprite, ignoreRollOver
  set the loc of sprite whichSprite to point(the locH of sprite whichSprite + 1, the locV of sprite whichSprite + 1)
  updateStage()
  set the loc of sprite whichSprite to point(the locH of sprite whichSprite + 1, the locV of sprite whichSprite + 1)
  updateStage()
  set delayFor to the timer + 20
  repeat while the mouseDown or (the timer < delayFor)
    nothing()
  end repeat
  if voidp(ignoreRollOver) then
    set theResult to rollOver(whichSprite)
  else
    set theResult to ignoreRollOver
  end if
  set the loc of sprite whichSprite to point(the locH of sprite whichSprite - 1, the locV of sprite whichSprite - 1)
  updateStage()
  set the loc of sprite whichSprite to point(the locH of sprite whichSprite - 1, the locV of sprite whichSprite - 1)
  updateStage()
  return theResult
end

on advanceFrame whichFrame, whichSound
  setProp(1, 40, "puppet", 0)
  setProp(41, 48, "puppet", 1)
  if whichSound > 0 then
    pupSound(whichSound)
  else
    pupSound(0)
  end if
  go(whichFrame)
end

on setFortuneFrame
  go("No Query")
end

on defineHotSpots cuMainMenu, cuNavigation, cuGeneral, cuForward, cuBackward, cuLeft, cuRight, cuScore, cuAbout, cuHot, cuWait
  set gMainMenuCursor to cuMainMenu
  set gNavigationCursor to cuNavigation
  set gGeneralCursor to cuGeneral
  set gForwardCursor to cuForward
  set gBackwardCursor to cuBackward
  set gLeftCursor to cuLeft
  set gRightCursor to cuRight
  set gScoreCursor to cuScore
  set gAboutCursor to cuAbout
  set gHotCursor to cuHot
  set gWaitCursor to cuWait
  setProp(1, 48, "visibility", 1)
end

on checkHotSpots
  if checkHotSpot(gHotCursor, cHotCursor) then
    cursor([gHot, gHotMask])
    exit
  end if
  cursor(-1)
end

on checkHotSpot whichSprites, whichCursor
  set theResult to 0
  set startSprite to getAt(whichSprites, 1)
  set stopSprite to getAt(whichSprites, 2)
  if startSprite > 0 then
    repeat with x = stopSprite down to startSprite
      if the type of sprite x > 0 then
        if rollOver(x) then
          set theResult to 1
          exit repeat
        end if
      end if
    end repeat
  end if
  return theResult
end

on pupSound whichSound
  if (gPupSound <> whichSound) or not (the soundBusy of 1) then
    set gPupSound to whichSound
    puppetSound(whichSound)
  end if
end

on playSound whichSound
  set whichCast to the number of cast whichSound
  if whichCast > 0 then
    puppetSound(whichSound)
    updateStage()
    repeat while the soundBusy of 1
      updateStage()
    end repeat
    puppetSound(0)
  end if
end

on find startFrame, endFrame, startCast, endCast
  set findList to []
  put RETURN & "Results, sorted by frame:"
  repeat with x = startFrame to endFrame
    go(x)
    repeat with y = 1 to 48
      if the type of sprite y > 0 then
        repeat with z = startCast to endCast
          if the castNum of sprite y = z then
            put "Frame " & x & ", channel " & y & " contains cast number " & z & "."
            append(findList, [x, y, z])
          end if
        end repeat
      end if
    end repeat
  end repeat
  put RETURN & "Results, sorted by channel:"
  repeat with x = 1 to 48
    repeat with y = 1 to count(findList)
      set dataCell to getAt(findList, y)
      set whichChannel to getAt(dataCell, 2)
      if whichChannel = x then
        set whichFrame to getAt(dataCell, 1)
        set whichCast to getAt(dataCell, 3)
        put "Frame " & whichFrame & ", channel " & whichChannel & " contains cast number " & whichCast & "."
      end if
    end repeat
  end repeat
  put RETURN & "Results, sorted by cast:"
  repeat with x = startCast to endCast
    repeat with y = 1 to count(findList)
      set dataCell to getAt(findList, y)
      set whichCast to getAt(dataCell, 3)
      if whichCast = x then
        set whichFrame to getAt(dataCell, 1)
        set whichChannel to getAt(dataCell, 2)
        put "Frame " & whichFrame & ", channel " & whichChannel & " contains cast number " & whichCast & "."
      end if
    end repeat
  end repeat
  put "Done."
  beep()
end